home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byte0787.arc / IWPAS.ARC / COMPARE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-04-28  |  1.1 KB  |  41 lines
  1. PROGRAM Compare(input,output,picfile);
  2.  
  3. { Copyright (c) 1987, Ciarcia's Circuit Cellar          }
  4. {    All Rights Reserved                                }
  5.  
  6. {$U- control-break checking during execution            }
  7. {$C- control-break checking during I/O operations       }
  8. {$R- array range checking                               }
  9.  
  10. {$Ideclares.p                   declarations            }
  11. {$Ihexutil.p                    hex utilities           }
  12. {$Iserial.p                     serial interface code   }
  13. {$Ipictures.p                   picture file code       }
  14. {$Iimages.p                     image processing        }
  15.  
  16. BEGIN
  17.  
  18.  LowVideo;
  19.  
  20.  pic1 := NIL;
  21.  PicSetup(pic1);
  22.  filespec := GetFSpec(ParamStr(1));
  23.  LoadPicture(filespec,pic1);
  24.  
  25.  pic2 := NIL;
  26.  PicSetup(pic2);
  27.  filespec2 := GetFSpec(ParamStr(2));
  28.  LoadPicture(filespec2,pic2);
  29.  
  30.  pic3 := NIL;
  31.  PicSetup(pic3);
  32.  SetSyncs(pic3);                { fill in sync bytes    }
  33.  Writeln('Comparing...');
  34.  Compare(pic1,pic2,pic3);
  35.  
  36.  IF ParamStr(3) <> ''
  37.   THEN filespec := ParamStr(3);
  38.  SavePicture(filespec,pic3);
  39.  
  40. END.
  41.